object dmDadosContasPagar: TdmDadosContasPagar
  OldCreateOrder = False
  Left = 390
  Top = 186
  Height = 383
  Width = 649
  object sqlTblban: TSQLDataSet
    CommandText = 'select *'#13#10'from tblban'#13#10'order by bandescr'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 48
    Top = 32
  end
  object dspTblban: TDataSetProvider
    DataSet = sqlTblban
    OnUpdateError = dspTblbanUpdateError
    Left = 48
    Top = 88
  end
  object cdsTblban: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTblban'
    OnNewRecord = cdsTblbanNewRecord
    Left = 48
    Top = 144
    object cdsTblbanbancod: TIntegerField
      FieldName = 'bancod'
      Required = True
    end
    object cdsTblbanbandescr: TStringField
      FieldName = 'bandescr'
      Required = True
      OnValidate = cdsTblbanbandescrValidate
      Size = 40
    end
  end
  object sqlTblfdp: TSQLDataSet
    CommandText = 'select *'#13#10'from tblfdp'#13#10'order by fdpdescr'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 144
    Top = 32
  end
  object dspTbfdp: TDataSetProvider
    DataSet = sqlTblfdp
    OnUpdateError = dspTbfdpUpdateError
    Left = 144
    Top = 88
  end
  object cdsTblfdp: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTbfdp'
    OnNewRecord = cdsTblfdpNewRecord
    Left = 144
    Top = 144
    object cdsTblfdpfdpcod: TIntegerField
      FieldName = 'fdpcod'
      Required = True
    end
    object cdsTblfdpfdpdescr: TStringField
      FieldName = 'fdpdescr'
      Required = True
      OnValidate = cdsTblfdpfdpdescrValidate
    end
  end
  object sqlTbltap: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select *'#13#10'from tbltap'#13#10'where 1 =2'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 312
    Top = 32
  end
  object dspTbltap: TDataSetProvider
    DataSet = sqlTbltap
    OnUpdateError = dspTbltapUpdateError
    Left = 312
    Top = 88
  end
  object cdsTbltap: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTbltap'
    OnNewRecord = cdsTbltapNewRecord
    Left = 312
    Top = 144
    object cdsTbltaptapcod: TIntegerField
      FieldName = 'tapcod'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsTbltaptapnrodoc: TStringField
      FieldName = 'tapnrodoc'
    end
    object cdsTbltaptapdescr: TStringField
      FieldName = 'tapdescr'
      OnValidate = cdsTbltaptapdescrValidate
      Size = 50
    end
    object cdsTbltaptapdtemis: TDateField
      FieldName = 'tapdtemis'
      Required = True
      OnValidate = cdsTbltaptapdtemisValidate
    end
    object cdsTbltaptapdtvenc: TDateField
      FieldName = 'tapdtvenc'
      Required = True
      OnValidate = cdsTbltaptapdtvencValidate
    end
    object cdsTbltaptapvldoc: TFMTBCDField
      FieldName = 'tapvldoc'
      Required = True
      OnValidate = cdsTbltaptapvldocValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTbltapfdpcod: TIntegerField
      FieldName = 'fdpcod'
      Required = True
      OnValidate = cdsTbltapfdpcodValidate
    end
    object cdsTbltapLookupFdpdescr: TStringField
      FieldKind = fkLookup
      FieldName = 'LookupFdpdescr'
      LookupDataSet = cdsTblfdp
      LookupKeyFields = 'fdpcod'
      LookupResultField = 'fdpdescr'
      KeyFields = 'fdpcod'
      ProviderFlags = []
      Lookup = True
    end
    object cdsTbltaptapdtpagto: TDateField
      FieldName = 'tapdtpagto'
      OnValidate = cdsTbltaptapdtpagtoValidate
    end
    object cdsTbltapbancod: TIntegerField
      FieldName = 'bancod'
      OnValidate = cdsTbltapbancodValidate
    end
    object cdsTbltapLookupBandescr: TStringField
      FieldKind = fkLookup
      FieldName = 'LookupBandescr'
      LookupDataSet = cdsTblban
      LookupKeyFields = 'bancod'
      LookupResultField = 'bandescr'
      KeyFields = 'bancod'
      ProviderFlags = []
      Size = 40
      Lookup = True
    end
    object cdsTbltaptapvljuros: TFMTBCDField
      FieldName = 'tapvljuros'
      Required = True
      OnValidate = cdsTbltaptapvljurosValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTbltaptapvlmulta: TFMTBCDField
      FieldName = 'tapvlmulta'
      Required = True
      OnValidate = cdsTbltaptapvlmultaValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTbltaptapvldesc: TFMTBCDField
      FieldName = 'tapvldesc'
      Required = True
      OnValidate = cdsTbltaptapvldescValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTbltaptapvlpagto: TFMTBCDField
      FieldName = 'tapvlpagto'
      Required = True
      OnValidate = cdsTbltaptapvlpagtoValidate
      DisplayFormat = '#,##0.00'
      Precision = 14
      Size = 2
    end
    object cdsTbltaptaphist: TStringField
      FieldName = 'taphist'
      Size = 50
    end
  end
end
